<?xml version="1.0" encoding="ISO-8859-1"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="text"/>
  
<xsl:template match="/DataBaseTable">
  Namespace <xsl:value-of select="ClassNamespace"/>
      Public Partial Class <xsl:value-of select="TableName"/>_PL
		<xsl:for-each select="TableColumnsList/DataBaseTableColumn">
		Public Property <xsl:value-of select="ColumnName" />() As <xsl:value-of select="PropertyTypeName" />
        </xsl:for-each>
	  End Class
  End Namespace
</xsl:template>
</xsl:stylesheet>

<!--<xsl:choose>
            <xsl:when test="ColumnTypeName &gt; smallint or ColumnTypeName &gt; int">
             
            </xsl:when>
            <xsl:when test="ColumnTypeName = varbinary">
              Public Property <xsl:value-of select="ColumnName" />() As Byte
              Get
              Return IIf(IsDBNull(Me.DataRow("<xsl:value-of select="ColumnName" />")), Nothing, Me.DataRow("<xsl:value-of select="ColumnName" />"))
              End Get
              Set(ByVal value As Byte)
              Me.DataRow("<xsl:value-of select="ColumnName" />") = value
              End Set
              End Property
            </xsl:when>
            <xsl:otherwise>
              <td>
                <xsl:value-of select="artist"/>
              </td>
            </xsl:otherwise>
          </xsl:choose>-->